perm filename XGPQUE.SAI[PIX,HPM]1 blob sn#380022 filedate 1978-09-13 generic text, type C, neo UTF8
COMMENT ⊗   VALID 00002 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002	BEGIN "XGPQUE"
C00003 ENDMK
C⊗;
BEGIN "XGPQUE"
REQUIRE "DDHDR.SAI[GRA,HPM]" SOURCE_FILE;

IF FALSE THEN BEGIN STRING A; CALL(0,0); A←CVXSTR(0); A←CVSIX("0"); A←A[1 TO 1]; END;

DDINIT;
GETDDF("DSK:TMP.TMP[TMP,HPM]");
XGPUP(5);

END "XGPQUE";